home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed5.d64 / nouns (.txt) < prev    next >
Commodore BASIC  |  2009-01-03  |  8KB  |  275 lines
  1. 100 GOTO910
  2. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  3. 310 REM PROJECT MANAGER: FRANK WINTER
  4. 320 REM PROGRAM NAME: NOUNS
  5. 330 REM WRITTEN BY: UNKNOWN
  6. 340 REM REVISED BY: SANDRA BLANKENFELDT
  7. 350 REM UPDATED BY: BILL CUMBERLAND
  8. 399 :
  9. 400 PRINT"[147]":POKEUT,UL%:POKEUY,0:POKEUX,0:POKE646,3
  10. 405 PRINT"[147]            [201][206][211][212][210][213][195][212][201][207][206][211] [146]"
  11. 415 PRINT"  [212]HIS PROGRAM IS BOTH A QUIZ AND         TUTORIAL ON NOUNS."
  12. 420 PRINT"  [217]OU MUST IDENTIFY NOUNS FROM            A LIST OF WORDS."
  13. 430 PRINT"  [201]T IS A VERY SIMPLE QUIZ."
  14. 450 GOSUB830
  15. 455 RETURN
  16. 499 :
  17. 700 REM <YES> SOUND
  18. 705 S=54272:FORE=STOS+28:POKEE,0:NEXT
  19. 710 POKE54296,15:POKE53277,42:POKE54278,250
  20. 715 POKE54276,23:POKE54273,23:POKE54272,191
  21. 720 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  22. 725 POKE54296,0:RETURN
  23. 730 REM <NO> SOUND
  24. 735 S=54272:FORE=STOS+28:POKEE,0:NEXT
  25. 740 POKE54296,15:POKE53277,18:POKE54278,242
  26. 745 POKE54276,33:POKE54273,4:POKE54272,48
  27. 750 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  28. 755 POKE54296,0:RETURN
  29. 760 REM <BLIP> SOUND
  30. 765 S=54272:FORE=STOS+28:POKEE,0:NEXT
  31. 770 POKE54296,8:POKE53277,42:POKE54278,250
  32. 775 POKE54276,23:POKE54273,23:POKE54272,191
  33. 780 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  34. 785 POKE54296,0:RETURN
  35. 790 REM TIMERS
  36. 791 FORT=1TO1000:NEXT:RETURN
  37. 792 FORT=1TO2000:NEXT:RETURN
  38. 793 FORT=1TO3000:NEXT:RETURN
  39. 794 FORT=1TO4000:NEXT:RETURN
  40. 795 FORT=1TO5000:NEXT:RETURN
  41. 796 FORT=1TO500:NEXT:RETURN
  42. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
  43. 801 PRINT"     A TPUG EDUCATIONAL PROGRAM "
  44. 802 PRINT"          FOR C64 COMPUTERS ":GOSUB791
  45. 803 PRINT"                                        [146]";
  46. 804 PRINT"                                        [146]";
  47. 805 PRINT"                                        [146]";
  48. 806 PRINT"                                        [146]";
  49. 807 PRINT"                NOUNS                   [146]";
  50. 808 PRINT"                                        [146]";
  51. 809 PRINT"[159]                                        [146]";
  52. 810 PRINT"                                        [146]":GOSUB791:GOSUB760
  53. 811 PRINT"          INSTRUCTIONS?  Y/N
  54. 817 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]817
  55. 818 [139]R$[178]"Y"[167][141]400
  56. 819 [153]"LOAD ... AND AWAY WE GO!
  57. 820 GOSUB792:GOSUB700:GOTO1000
  58. 830 GOSUB791:GOSUB760
  59. 835 POKEUN,0:PRINTLEFT$(UD$,24);"[154] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146][155]"
  60. 840 GETUI$:IFUI$<>" "THEN840
  61. 845 RETURN
  62. 850 UP=UP+1:REM  PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  63. 855 REM   PRINT" --------------------------------------"
  64. 860 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS  [210][197][212][213][210][206] [146]
  65. 865 UH[178]0:[153]"":[142]
  66. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  67. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  68. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  69. 905 UD$[178]"":UP$[178]"                                      "
  70. 909 [142]
  71. 910 [141]900:[153]"LOAD "
  72. 920 [137] 800
  73. 999 :
  74. 1000 [140]:[151]UY,0:[151]UX,0
  75. 1020 [151]UT,UL%:UP[178]0:UL[178]10:K[178]0:WR[178]0
  76. 1199 :
  77. 1200 [153]"LOAD    (null)HAT IS A  NOUN WAIT?"
  78. 1210 [153]"    1) ATN NAME WORD
  79. 1220 PRINT"    2) [193]N ACTION WORD
  80. 1230 [153]"    3) ATN DESCRIBING WORD
  81. 1240 PRINT"    [212]YPE 1, 2, OR 3: ";
  82. 1250 US$="123":UL=1:INPUTUR$:P=VAL(UR$)
  83. 1260 PRINT"[147]"
  84. 1300 IF P=1 THEN 1370
  85. 1310 K=K+1:WR=WR+1
  86. 1320 IF K=2 THEN 1350
  87. 1330 PRINT"[150][147] [206]OT SO.";:GOSUB730:GOSUB791:PRINT" [212]RY AGAIN.[149]"
  88. 1340 GOSUB791:GOTO1200
  89. 1350 PRINT"  [201] SEE YOU'RE HAVING PROBLEMS            WITH NOUNS,
  90. 1352 [153]"  ATN NOUN IS A NAME WORD."
  91. 1354 [153]"  RIGHT$T NAMES A PERSON, PLACE OR THING.":[141]793
  92. 1356 [153]"  ATNN ACTION WORD IS KNOWN AS A (null)VAL(null)PEEK.":[141]792
  93. 1358 [153]"  ATN DESCRIBING WORD IS KNOWN AS           AN ATNSTR$MID$VALLEN(null)RIGHT$(null)VAL.
  94. 1360 GOSUB830
  95. 1365 GOTO1400
  96. 1370 PRINT"[158][147]      [212]HAT'S CORRECT![155]":GOSUB700:GOSUB792
  97. 1400 K=0:PRINT"[147] [204]ET'S TRY TO FIND SOME  NOUNS [146]!":GOSUB792"
  98. 1410 [153]"LOAD (null)HICH WORD IS A  NOUN WAIT?":[141]760
  99. 1420 [153]"    1     2        3
  100. 1430 PRINT"   [212]HE   BOY     SITS.
  101. 1440 [153]" (null)YPE 1, 2, OR 3: ";
  102. 1450 US$[178]"123":UL[178]1:[133]UR$:R[178][197](UR$)
  103. 1460 [153]""
  104. 1470 [139] R[178]2 [167] 1590
  105. 1490 K[178]K[170]1:WR[178]WR[170]1
  106. 1500 [139] K[178]2 [167] 1560
  107. 1510 [153]"DEFLOAD (null)O, THAT'S WRONG.  (null)RY AGAIN.VERIFY":[141]730:[141]791
  108. 1515 [153]"PRINT (null)EMEMBER, A NOUN NAMES A PERSON,"
  109. 1516 [153]" PLACE OR THING.LIST"
  110. 1520 [141]830
  111. 1540 [153]"LOAD"
  112. 1550 [137]  1410
  113. 1560 [153]"LOAD (null)HE CORRECT ANSWER IS  2. BOY WAIT.":[141]700
  114. 1565 [141]791:[153]" (null)HE WORD  THE WAIT DESCRIBES THE WORD"
  115. 1566 [153]" BOY, WHICH MAKES IT AN ADJECTIVE."
  116. 1567 [153]" (null)HE WORD  SITS WAIT GIVES THE ACTION "
  117. 1568 [153]" THE BOY IS DOING, WHICH MAKES IT        A VERB."
  118. 1570 [141]830
  119. 1580 [137]1610
  120. 1590 [141]700:[153]"LOAD CHR$OOD WORK!":[141]791
  121. 1600 [153]" (null)ET'S TRY ANOTHER.
  122. 1610 GOSUB792:K=0:PRINT"[147]"
  123. 1620 PRINT"[147] [215]HICH IS THE  NOUN [146]?":GOSUB760
  124. 1630 PRINT"     1       2      3        4
  125. 1640 [153]"    TWO     BIG   ROUND     EYES.
  126. 1650 PRINT" [212]YPE 1, 2, 3, OR 4: ";
  127. 1660 US$="1234":UL=1:INPUT UR$:S=VAL(UR$)
  128. 1665 K=K+1:WR=WR+1
  129. 1680 ONSGOTO1690,1800,1870,1950
  130. 1690 GOSUB730:PRINT"[153][147]  [212]WO [146] IS NOT A NOUN.[155]":GOSUB791
  131. 1700 PRINT" [201]T DOES NOT NAME A PERSON,
  132. 1710 [153]"                    PLACE, OR
  133. 1720 PRINT"                    THING!
  134. 1730 [153]" RIGHT$T DESCRIBES HOW MANY.":[141]791:[141]760
  135. 1740 [153]" (null)RY AGAIN.":[141]830
  136. 1750 [153]"LOAD"
  137. 1760 [137] 1620
  138. 1770 [143]
  139. 1780 [153]"LOAD"
  140. 1790 [137] 1620
  141. 1800 [141]730:[153]"LOAD  PEEKIG WAIT IS NOT A NOUN.":[141]791
  142. 1810 [153]" RIGHT$T DOES NOT NAME A PERSON,
  143. 1820 PRINT"                    PLACE, OR
  144. 1830 [153]"                    THING!":[141]791
  145. 1840 [153]"  PEEKIG WAIT DESCRIBES THE SIZE.":[141]791
  146. 1850 [153]" (null)RY AGAIN.":[141]830
  147. 1860 [137] 1770
  148. 1870 :
  149. 1880 [141]730:[153]"LOAD  (null)OUND WAIT IS NOT A NOUN.":[141]791
  150. 1890 [153]" RIGHT$T DOES NOT NAME A PERSON,
  151. 1900 PRINT"                    PLACE, OR
  152. 1910 [153]"                    THING!":[141]791
  153. 1920 [153]"  (null)OUND WAIT DESCRIBES THE SHAPE.":[141]791:[141]760
  154. 1930 [153]" (null)RY AGAIN.":[141]830
  155. 1940 [137] 1770
  156. 1941 [141]730:[153]"LOAD (null)ATCH CLOSELY.  THE CORRECT ANSWER"
  157. 1942 [153]" IS  4. EYES WAIT.  (null)HE WORDS  TWO WAIT,  BIG WAIT"
  158. 1943 [153]" AND  ROUND WAIT ARE ALL DESCIBING THE"
  159. 1944 [153]" NOUN  EYES WAIT, WHICH MAKES THESE WORDS"
  160. 1945 [153]" ADJECTIVES."
  161. 1946 [137]2080
  162. 1950 [153]"LOAD"
  163. 1960 [153]"           ATNBSOLUTELY CORRECT!!!":[141]700:[141]792
  164. 2080 [153]"LOAD  (null)OW, WATCH CLOSELY.":[141]793
  165. 2100 K[178]0
  166. 2110 [153]"LOAD   (null)HESE ARE  NOUNS WAIT.  (null)HEY ARE NAMES
  167. 2120 PRINT"   OF PEOPLE.
  168. 2130 [153]"   BOY    GIRL   LADY    POLICEMAN
  169. 2140 PRINT"":GOSUB830
  170. 2230 PRINT"[147]   [212]HESE ARE  NOUNS [146].  [212]HEY ARE NAMES
  171. 2240 [153]"   OF PLACES.
  172. 2250 PRINT"   HOUSE   BARN   CITY    GARDEN
  173. 2260 [153]"":[141]830
  174. 2310 [153]"LOAD (null)HESE ARE  NOUNS WAIT.  (null)HEY ARE NAMES
  175. 2320 PRINT" OF THINGS."
  176. 2330 PRINT"  EYES   CUP    KINDNESS    SHOES
  177. 2340 [153]"":[141]830
  178. 2360 [153]"LOAD (null)YPE THE WORD THAT IS  NOT A NOUN WAIT!"
  179. 2390 [129] I[178]1 [164] 5
  180. 2400 [135] A$(I)
  181. 2410 [153]" ";A$(I),""
  182. 2420 [130] I
  183. 2430 [131] BOY,TRUCK,GARDEN,SIT,FOX
  184. 2440 D$[178]"BOY
  185. 2450 E$="TRUCK
  186. 2460 F$[178]"GARDEN
  187. 2470 G$="SIT
  188. 2480 H$[178]"FOX
  189. 2490 PRINTA$(I)
  190. 2500 RESTORE
  191. 2510 PRINT" [215]HICH? ";:US$="":UL=6:INPUTUR$:A$=UR$
  192. 2512 FORTB=1TO5
  193. 2514 IFA$=A$(TB)THEN2530
  194. 2516 NEXTTB
  195. 2518 PRINT"[145]        [157][157][157][157][157][157][157][157]";:GOTO2510
  196. 2520 PRINT"[147]"
  197. 2530 IFA$=D$THEN 2580
  198. 2540 IFA$=E$THEN 2580
  199. 2550 IFA$=F$THEN 2580
  200. 2560 IFA$=G$THEN 2770
  201. 2570 IFA$=H$THEN 2580
  202. 2580 PRINT"[147] [201]'M SORRY, BUT "A$" IS A  NOUN [146]."
  203. 2600 GOSUB730
  204. 2610 IF A$=D$ THEN C$=" PERSON "
  205. 2620 IF A$=E$ THEN C$=" THING "
  206. 2630 IF A$=F$ THEN C$=" PLACE "
  207. 2640 IF A$=H$ THEN C$=" THING "
  208. 2650 PRINT" [201]T IS THE NAME OF A "C$"[146].
  209. 2660 [153]" (null)ET'S TRY IT AGAIN.":[141]830
  210. 2670 K[178]K[170]1:WR[178]WR[170]1
  211. 2680 [139] K[178]4 [167] 2700
  212. 2690 [137] 2360
  213. 2700 [153]"LOAD (null)OU SEEM TO BE A LITTLE CONFUSED.":[141]730
  214. 2710 [153]"  (null)ET'S GO BACK AND REVIEW.":[141]830:[153]"LOAD"
  215. 2720 [137]2150
  216. 2770 [153]"LOAD         (null)ELL DONE!":[141]700:[141]792
  217. 2860 [153]"LOAD"
  218. 2865 [139] WR[177]0 [167] 3100
  219. 2900 [153]"LOAD RIGHT$F YOU WISH TO REPEAT THIS  "
  220. 2910 [153]" PROGRAM, PRESS  (null) WAIT."
  221. 2920 [153]" RIGHT$F YOU WISH TO RETURN TO THE MAIN"
  222. 2930 [153]" MENU, PRESS  (null) WAIT.":[141]791:[141]760
  223. 2940 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]2940
  224. 2950 [139]R$[178]"1"[167][141]700:[141]791:[137]1000
  225. 2960 [153]"LOAD (null)ETURNING TO THE DISK (null)VAL(null)(null)
  226. 2965 LOAD"MENU",8
  227. 2970 RUN
  228. 2975 END
  229. 3100 PRINT"[147] [201]T TOOK YOU";K+1;"TRIES.":GOSUB792
  230. 3110 PRINT"  [217]OU MAY KNOW WHAT YOU ARE DOING,"
  231. 3120 PRINT"  BUT LET'S MAKE SURE AND DO ANOTHER"
  232. 3130 PRINT"  QUESTION."
  233. 3140 GOSUB830:K=0
  234. 3150 PRINT"[147] [212]YPE IN THE WORD THAT IS  NOT A NOUN![146]
  235. 3180 [129] I[178]1 [164] 5
  236. 3190 [135] A$(I):[130] I
  237. 3200 [129] I[178]1 [164] 5
  238. 3210 [135] A$(I)
  239. 3220 [153]" ";A$(I),""
  240. 3230 [130] I
  241. 3240 [131] GIRL,OLD,CAR,FLOWER,PARK
  242. 3250 D$[178]"GIRL
  243. 3260 E$="OLD
  244. 3270 F$[178]"CAR
  245. 3280 G$="FLOWER
  246. 3290 H$[178]"PARK
  247. 3300 PRINTA$(I)
  248. 3310 RESTORE
  249. 3320 PRINT" [215]HICH? ";:US$="":UL=6:INPUTUR$:A$=UR$
  250. 3330 FORTB=1TO5
  251. 3340 IFA$=A$(TB)THEN3380
  252. 3350 NEXTTB
  253. 3360 PRINT"[145]        [157][157][157][157][157][157][157][157]";:GOTO3320
  254. 3370 PRINT"[147]"
  255. 3380 IF A$=D$ THEN 3430
  256. 3390 IF A$=G$ THEN 3430
  257. 3400 IF A$=F$ THEN 3430
  258. 3410 IF A$=E$ THENK=0:GOTO3570
  259. 3420 IF A$=H$ THEN 3430
  260. 3430 PRINT"[147] [201]'M SORRY, BUT "A$" IS A NOUN[146]."
  261. 3450 GOSUB730:GOSUB791
  262. 3460 IF A$=D$ THEN C$=" PERSON "
  263. 3470 IF A$=F$ THEN C$=" THING "
  264. 3480 IF A$=H$ THEN C$=" PLACE "
  265. 3490 IF A$=G$ THEN C$=" THING "
  266. 3500 PRINT" [201]T IS THE NAME OF A "C$"[146] .":GOSUB792:GOSUB760
  267. 3505 IFK=3THEN3550
  268. 3510 PRINT" [204]ET'S TRY IT AGAIN!":GOSUB830
  269. 3520 K=K+1
  270. 3540 GOTO 3150
  271. 3550 PRINT"[147]  [199]OOD GRIEF! [215]AKE UP!":GOSUB792:GOSUB730:GOSUB792
  272. 3560 GOTO 2900
  273. 3570 PRINT"[147]  [195]ORRECT!":GOSUB700:GOSUB792:GOSUB760:GOTO2900
  274. 3600 REM WHC 90:11:29
  275.